Dit voorbeeld neemt een datum en geeft, met behulp van de functie DateAdd, een corresponderende datum een opgegeven aantal maanden in de toekomst weer.
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m" geeft maanden als interval.
FirstDate = InputBox("Voer een datum in")
Number = InputBox("Voer aantal op te tellen maanden in")
Msg = "Nieuwe datum: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg